/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / Examine.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 0a c8 1f 01 06 52 | 00 36 20 2a 2a 2a 2a 2a |.......R|.6 *****|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 20 43 6f 6d 6d 61 6e 64 | 73 20 75 73 65 64 3a 20 | Command|s used: |
|00000050| 00 00 28 01 06 52 00 48 | 20 2a 20 20 20 20 20 20 |..(..R.H| *      |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 45 |        |     * E|
|00000080| 78 61 6d 69 6e 65 20 4f | 62 6a 65 63 74 20 20 20 |xamine O|bject   |
|00000090| 20 20 3d 4f 62 6a 65 63 | 74 20 54 69 6d 65 20 20 |  =Objec|t Time  |
|000000a0| 00 00 27 01 06 52 00 46 | 20 2a 20 20 20 20 20 20 |..'..R.F| *      |
|000000b0| 20 20 20 20 20 41 6d 63 | 61 66 20 45 78 61 6d 70 |     Amc|af Examp|
|000000c0| 6c 65 73 20 20 20 20 20 | 20 20 20 20 20 2a 20 45 |les     |     * E|
|000000d0| 78 61 6d 69 6e 65 20 44 | 69 72 20 20 20 20 20 20 |xamine D|ir      |
|000000e0| 20 20 3d 4f 62 6a 65 63 | 74 20 44 61 74 65 00 00 |  =Objec|t Date..|
|000000f0| 29 01 06 52 00 4a 20 2a | 20 20 20 20 20 20 20 20 |)..R.J *|        |
|00000100| 20 20 20 20 45 78 61 6d | 69 6e 65 20 56 31 2e 30 |    Exam|ine V1.0|
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 2a 20 3d 45 78 |        |   * =Ex|
|00000120| 61 6d 69 6e 65 20 4e 65 | 78 74 24 20 20 20 20 20 |amine Ne|xt$     |
|00000130| 3d 4f 62 6a 65 63 74 20 | 43 6f 6d 6d 65 6e 74 24 |=Object |Comment$|
|00000140| 00 00 2b 01 06 52 00 4e | 20 2a 20 20 20 20 20 20 |..+..R.N| *      |
|00000150| 57 72 69 74 74 65 6e 20 | 62 79 20 43 68 72 69 73 |Written |by Chris|
|00000160| 20 48 6f 64 67 65 73 20 | 20 20 20 20 20 2a 20 3d | Hodges |     * =|
|00000170| 4f 62 6a 65 63 74 20 4e | 61 6d 65 24 20 20 20 20 |Object N|ame$    |
|00000180| 20 20 3d 4f 62 6a 65 63 | 74 20 50 72 6f 74 65 63 |  =Objec|t Protec|
|00000190| 74 69 6f 6e 24 20 00 00 | 28 01 06 52 00 48 20 2a |tion$ ..|(..R.H *|
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 2a 20 3d 4f 62 | 6a 65 63 74 20 54 79 70 |   * =Ob|ject Typ|
|000001d0| 65 20 20 20 20 20 20 20 | 3d 4f 62 6a 65 63 74 20 |e       |=Object |
|000001e0| 42 6c 6f 63 6b 73 00 00 | 25 01 06 52 00 42 20 2a |Blocks..|%..R.B *|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 20 3d 4f 62 | 6a 65 63 74 20 53 69 7a |**** =Ob|ject Siz|
|00000220| 65 20 20 20 20 20 20 20 | 3d 4c 73 73 74 72 24 20 |e       |=Lsstr$ |
|00000230| 00 00 11 01 06 52 00 1a | 20 20 20 20 20 20 20 20 |.....R..|        |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 20 20 00 00 1e 01 06 52 | 00 34 20 4f 70 65 6e 20 |  .....R|.4 Open |
|00000260| 61 20 73 63 72 65 65 6e | 20 74 68 61 74 20 69 73 |a screen| that is|
|00000270| 20 62 69 67 20 65 6e 6f | 75 67 68 20 74 6f 20 68 | big eno|ugh to h|
|00000280| 6f 6c 64 20 61 6c 6c 20 | 64 61 74 61 73 2e 00 00 |old all |datas...|
|00000290| 14 01 09 ea 00 3e 00 00 | 00 00 00 5c 00 3e 00 00 |.....>..|...\.>..|
|000002a0| 02 80 00 5c 00 3e 00 00 | 01 00 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|000002b0| 00 02 00 5c 0c 84 00 00 | 11 01 14 46 00 54 0d 34 |...\....|...F.T.4|
|000002c0| 00 54 13 dc 00 3e 00 00 | 00 00 00 54 13 d2 00 3e |.T...>..|...T...>|
|000002d0| 00 00 00 01 00 54 0b ae | 00 00 14 01 06 52 00 20 |.....T..|.....R. |
|000002e0| 20 43 72 65 61 74 65 20 | 61 20 6e 69 63 65 20 6c | Create |a nice l|
|000002f0| 6f 6f 6b 69 6e 67 20 70 | 61 6c 65 74 74 65 2e 20 |ooking p|alette. |
|00000300| 00 00 0a 01 0c fc 00 3e | 00 00 00 00 00 5c 00 36 |.......>|.....\.6|
|00000310| 00 00 0f ff 00 00 25 01 | 06 52 00 42 20 4f 70 65 |......%.|.R.B Ope|
|00000320| 6e 20 61 20 66 69 6c 65 | 20 73 65 6c 65 63 74 6f |n a file| selecto|
|00000330| 72 2c 20 77 68 65 72 65 | 20 79 6f 75 20 63 61 6e |r, where| you can|
|00000340| 20 63 68 6f 6f 73 65 20 | 61 20 66 69 6c 65 20 74 | choose |a file t|
|00000350| 6f 20 62 65 20 65 78 61 | 6d 69 6e 65 64 2e 00 00 |o be exa|mined...|
|00000360| 1d 01 00 06 00 00 04 02 | 66 69 6c 65 ff a2 19 54 |........|file...T|
|00000370| 00 74 00 26 00 00 00 5c | 00 26 00 00 00 5c 00 26 |.t.&...\|.&...\.&|
|00000380| 00 0e 53 65 6c 65 63 74 | 20 61 20 66 69 6c 65 21 |..Select| a file!|
|00000390| 00 5c 00 26 00 00 00 7c | 00 00 14 01 06 52 00 20 |.\.&...||.....R. |
|000003a0| 20 48 61 73 20 74 68 65 | 20 75 73 65 72 20 63 6c | Has the| user cl|
|000003b0| 69 63 6b 65 64 20 6f 6e | 20 43 61 6e 63 65 6c 3f |icked on| Cancel?|
|000003c0| 00 00 0e 01 02 be 00 00 | 00 06 00 00 04 02 66 69 |........|......fi|
|000003d0| 6c 65 ff a2 00 26 00 00 | 02 c6 03 b6 00 00 1e 01 |le...&..|........|
|000003e0| 06 52 00 34 20 45 78 61 | 6d 69 6e 65 20 74 68 65 |.R.4 Exa|mine the|
|000003f0| 20 6f 62 6a 65 63 74 2e | 20 54 68 65 6e 20 6a 75 | object.| Then ju|
|00000400| 6d 70 20 74 6f 20 61 20 | 6f 75 74 70 75 74 20 72 |mp to a |output r|
|00000410| 6f 75 74 69 6e 65 2e 20 | 00 00 0a 01 00 4e 08 00 |outine. |.....N..|
|00000420| 06 72 00 06 00 00 04 02 | 66 69 6c 65 00 00 09 01 |.r......|file....|
|00000430| 02 b2 00 06 00 00 06 00 | 6f 75 74 70 75 74 00 00 |........|output..|
|00000440| 0e 01 06 52 00 14 20 57 | 61 69 74 20 66 6f 72 20 |...R.. W|ait for |
|00000450| 6b 65 79 70 72 65 73 73 | 2e 20 00 00 13 01 04 76 |keypress|. .....v|
|00000460| 00 54 04 76 00 26 00 18 | 50 72 65 73 73 20 61 20 |.T.v.&..|Press a |
|00000470| 6b 65 79 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 2e |key to c|ontinue.|
|00000480| 00 00 03 01 12 90 00 00 | 03 01 0b ae 00 00 26 01 |........|......&.|
|00000490| 06 52 00 44 20 43 61 6c | 63 75 6c 61 74 65 20 74 |.R.D Cal|culate t|
|000004a0| 68 65 20 64 69 72 65 63 | 74 6f 72 79 20 70 61 74 |he direc|tory pat|
|000004b0| 68 20 66 6f 72 20 74 68 | 61 74 20 66 69 6c 65 20 |h for th|at file |
|000004c0| 61 6e 64 20 67 69 76 65 | 20 6f 75 74 20 74 68 65 |and give| out the|
|000004d0| 20 77 68 6f 6c 65 20 20 | 00 00 0a 01 06 52 00 0c | whole  |.....R..|
|000004e0| 20 64 69 72 65 63 74 6f | 72 79 2e 20 00 00 11 01 | directo|ry. ....|
|000004f0| 00 06 00 00 02 02 64 00 | ff a2 00 4e 08 00 03 e0 |......d.|...N....|
|00000500| 00 74 00 06 00 00 04 02 | 66 69 6c 65 00 7c 00 00 |.t......|file.|..|
|00000510| 10 01 06 52 00 18 20 45 | 78 61 6d 69 6e 65 20 74 |...R.. E|xamine t|
|00000520| 68 65 20 64 69 72 65 63 | 74 6f 72 79 2e 20 00 00 |he direc|tory. ..|
|00000530| 09 01 00 4e 08 00 06 3a | 00 06 00 00 02 02 64 00 |...N...:|......d.|
|00000540| 00 00 14 01 06 52 00 20 | 20 4d 61 69 6e 6c 6f 6f |.....R. | Mainloo|
|00000550| 70 20 66 6f 72 20 64 69 | 72 65 63 74 6f 72 79 20 |p for di|rectory |
|00000560| 6f 75 74 70 75 74 2e 20 | 00 00 04 01 02 7e 00 00 |output. |.....~..|
|00000570| 00 00 24 03 06 52 00 40 | 20 4c 6f 6f 70 20 61 73 |..$..R.@| Loop as|
|00000580| 20 6c 6f 6e 67 20 61 73 | 20 74 68 65 20 65 6e 64 | long as| the end|
|00000590| 20 6f 66 20 74 68 65 20 | 64 69 72 65 63 74 6f 72 | of the |director|
|000005a0| 79 20 68 61 73 20 6e 6f | 74 20 62 65 65 6e 20 72 |y has no|t been r|
|000005b0| 65 61 63 68 65 64 2e 20 | 00 00 0a 03 00 06 00 00 |eached. |........|
|000005c0| 02 02 66 00 ff a2 00 4e | 08 00 06 4c 00 00 0c 03 |..f....N|...L....|
|000005d0| 02 90 00 00 00 00 00 06 | 00 00 02 02 66 00 ff a2 |........|....f...|
|000005e0| 00 26 00 00 00 00 18 03 | 06 52 00 28 20 43 61 6c |.&......|.R.( Cal|
|000005f0| 6c 20 74 68 65 20 73 74 | 72 69 6e 67 20 66 6f 72 |l the st|ring for|
|00000600| 6d 61 74 74 69 6e 67 20 | 73 75 62 72 6f 75 74 69 |matting |subrouti|
|00000610| 6e 65 2e 20 00 00 09 03 | 02 b2 00 06 00 00 06 00 |ne. ....|........|
|00000620| 6f 75 74 70 75 74 00 00 | 03 01 02 86 00 00 14 01 |output..|........|
|00000630| 06 52 00 20 20 50 72 6f | 6d 70 74 20 73 6f 6d 65 |.R.  Pro|mpt some|
|00000640| 74 68 69 6e 67 20 6f 6e | 20 74 68 65 20 73 63 72 |thing on| the scr|
|00000650| 65 65 6e 2e 00 00 03 01 | 04 76 00 00 0f 01 04 76 |een.....|.v.....v|
|00000660| 00 26 00 14 50 72 65 73 | 73 20 61 20 6b 65 79 20 |.&..Pres|s a key |
|00000670| 74 6f 20 71 75 69 74 2e | 00 00 03 01 12 90 00 00 |to quit.|........|
|00000680| 06 01 0a 04 00 3e 00 00 | 00 00 00 00 03 01 03 b6 |.....>..|........|
|00000690| 00 00 26 01 06 52 00 44 | 20 4e 6f 77 20 74 68 65 |..&..R.D| Now the|
|000006a0| 20 73 75 62 72 6f 75 74 | 69 6e 65 20 66 6f 72 20 | subrout|ine for |
|000006b0| 67 69 76 69 6e 67 20 6f | 75 74 20 73 6f 6d 65 20 |giving o|ut some |
|000006c0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 73 20 61 62 6f |informat|ions abo|
|000006d0| 75 74 20 74 68 65 20 6c | 6f 63 6b 2e 00 00 08 01 |ut the l|ock.....|
|000006e0| 00 0c 00 00 06 00 6f 75 | 74 70 75 74 00 00 0d 03 |......ou|tput....|
|000006f0| 06 52 00 12 20 47 65 74 | 20 74 68 65 20 66 69 6c |.R.. Get| the fil|
|00000700| 65 6e 61 6d 65 3a 00 00 | 14 03 00 06 00 00 08 02 |ename:..|........|
|00000710| 66 69 6c 65 6e 61 6d 00 | ff a2 05 28 00 74 00 4e |filenam.|...(.t.N|
|00000720| 08 00 06 d8 00 5c 00 3e | 00 00 00 19 00 7c 00 00 |.....\.>|.....|..|
|00000730| 18 03 06 52 00 28 20 43 | 68 65 63 6b 20 69 66 20 |...R.( C|heck if |
|00000740| 74 68 65 20 6c 6f 63 6b | 20 63 6f 6e 74 61 69 6e |the lock| contain|
|00000750| 73 20 61 20 64 69 72 65 | 63 74 6f 72 79 2e 00 00 |s a dire|ctory...|
|00000760| 0b 03 02 be 00 00 00 4e | 08 00 06 88 ff b6 00 3e |.......N|.......>|
|00000770| 00 00 00 00 00 00 13 05 | 06 52 00 1e 20 46 69 6c |........|.R.. Fil|
|00000780| 6c 20 69 6e 20 74 68 65 | 20 6e 65 63 63 65 73 73 |l in the| neccess|
|00000790| 61 72 79 20 64 61 74 61 | 2e 20 00 00 11 05 00 06 |ary data|. ......|
|000007a0| 00 00 04 02 73 69 7a 65 | ff a2 00 26 00 0e 20 20 |....size|...&..  |
|000007b0| 3c 44 69 72 3e 20 20 20 | 20 20 20 20 00 00 04 03 |<Dir>   |    ....|
|000007c0| 02 d0 00 00 00 00 1b 05 | 06 52 00 2e 20 43 61 6c |........|.R.. Cal|
|000007d0| 63 75 6c 61 74 65 20 74 | 68 65 20 73 69 7a 65 73 |culate t|he sizes|
|000007e0| 74 72 69 6e 67 20 69 6e | 20 62 79 74 65 73 20 61 |tring in| bytes a|
|000007f0| 6e 64 20 62 6c 6f 63 6b | 73 2e 00 00 29 05 00 06 |nd block|s...)...|
|00000800| 00 00 04 02 73 69 7a 65 | ff a2 00 4e 08 00 0e c8 |....size|...N....|
|00000810| 00 74 00 4e 08 00 06 a2 | 00 5c 00 3e 00 00 00 07 |.t.N....|.\.>....|
|00000820| 00 7c ff c0 00 26 00 02 | 20 5b ff c0 00 4e 08 00 |.|...&..| [...N..|
|00000830| 0e c8 00 74 00 4e 08 00 | 06 bc 00 5c 00 3e 00 00 |...t.N..|...\.>..|
|00000840| 00 04 00 7c ff c0 00 26 | 00 01 5d 00 00 00 03 03 |...|...&|..].....|
|00000850| 02 da 00 00 22 03 06 52 | 00 3c 20 43 68 65 63 6b |...."..R|.< Check|
|00000860| 20 74 68 65 20 64 61 74 | 65 20 61 6e 64 20 74 69 | the dat|e and ti|
|00000870| 6d 65 20 61 6e 64 20 63 | 72 65 61 74 65 20 74 68 |me and c|reate th|
|00000880| 65 20 61 70 72 6f 70 72 | 69 61 74 65 20 73 74 72 |e apropr|iate str|
|00000890| 69 6e 67 73 2e 20 00 00 | 20 03 06 52 00 38 20 43 |ings. ..| ..R.8 C|
|000008a0| 75 74 20 6f 66 20 74 68 | 65 20 77 65 65 6b 64 61 |ut of th|e weekda|
|000008b0| 79 20 69 6e 20 74 68 65 | 20 64 61 74 65 73 74 72 |y in the| datestr|
|000008c0| 69 6e 67 20 74 6f 20 67 | 65 74 20 6d 6f 72 65 20 |ing to g|et more |
|000008d0| 73 70 61 63 65 2e 00 00 | 17 03 00 06 00 00 04 02 |space...|........|
|000008e0| 64 61 74 65 ff a2 05 0e | 00 74 00 4e 08 00 0f 0a |date....|.t.N....|
|000008f0| 00 74 00 4e 08 00 06 f4 | 00 7c 00 5c 00 3e 00 00 |.t.N....|.|.\.>..|
|00000900| 00 05 00 7c 00 00 10 03 | 00 06 00 00 04 02 74 69 |...|....|......ti|
|00000910| 6d 65 ff a2 00 4e 08 00 | 0f 1a 00 74 00 4e 08 00 |me...N..|...t.N..|
|00000920| 07 0e 00 7c 00 00 25 03 | 06 52 00 42 20 47 65 74 |...|..%.|.R.B Get|
|00000930| 20 74 68 65 20 70 72 6f | 74 65 63 74 69 6f 6e 20 | the pro|tection |
|00000940| 66 6c 61 67 73 20 61 6e | 64 20 63 6f 6e 76 65 72 |flags an|d conver|
|00000950| 74 20 74 68 65 6d 20 69 | 6e 74 6f 20 72 65 61 64 |t them i|nto read|
|00000960| 61 62 6c 65 20 66 6f 72 | 6d 61 74 2e 20 20 00 00 |able for|mat.  ..|
|00000970| 10 03 00 06 00 00 04 02 | 70 72 6f 74 ff a2 00 4e |........|prot...N|
|00000980| 08 00 07 28 00 74 00 4e | 08 00 07 42 00 7c 00 00 |...(.t.N|...B.|..|
|00000990| 19 03 06 52 00 2a 20 41 | 74 20 6c 61 73 74 2c 20 |...R.* A|t last, |
|000009a0| 75 73 65 20 70 61 72 74 | 73 20 6f 66 20 74 68 65 |use part|s of the|
|000009b0| 20 63 6f 6d 6d 65 6e 74 | 20 73 74 72 69 6e 67 2e | comment| string.|
|000009c0| 00 00 12 03 00 06 00 00 | 04 02 63 6f 6d 00 ff a2 |........|..com...|
|000009d0| 05 28 00 74 00 4e 08 00 | 07 62 00 5c 00 3e 00 00 |.(.t.N..|.b.\.>..|
|000009e0| 00 0a 00 7c 00 00 21 03 | 06 52 00 3a 20 46 69 6e |...|..!.|.R.: Fin|
|000009f0| 61 6c 6c 79 2c 20 6d 65 | 72 67 65 20 74 68 65 20 |ally, me|rge the |
|00000a00| 73 74 72 69 6e 67 73 20 | 61 6e 64 20 70 72 69 6e |strings |and prin|
|00000a10| 74 20 74 68 65 6d 20 74 | 6f 20 74 68 65 20 73 63 |t them t|o the sc|
|00000a20| 72 65 65 6e 2e 20 00 00 | 4f 03 00 06 00 00 04 02 |reen. ..|O.......|
|00000a30| 6c 69 6e 00 ff a2 00 06 | 00 00 08 02 66 69 6c 65 |lin.....|....file|
|00000a40| 6e 61 6d 00 ff c0 05 5e | 00 74 00 3e 00 00 00 1a |nam....^|.t.>....|
|00000a50| ff ca 05 da 00 74 00 06 | 00 00 08 02 66 69 6c 65 |.....t..|....file|
|00000a60| 6e 61 6d 00 00 7c 00 7c | ff c0 00 06 00 00 04 02 |nam..|.||........|
|00000a70| 73 69 7a 65 ff c0 00 26 | 00 01 20 00 ff c0 00 06 |size...&|.. .....|
|00000a80| 00 00 04 02 64 61 74 65 | ff c0 00 26 00 01 20 00 |....date|...&.. .|
|00000a90| ff c0 00 06 00 00 04 02 | 74 69 6d 65 ff c0 00 26 |........|time...&|
|00000aa0| 00 01 20 00 ff c0 00 06 | 00 00 04 02 70 72 6f 74 |.. .....|....prot|
|00000ab0| ff c0 00 26 00 01 20 00 | ff c0 00 06 00 00 04 02 |...&.. .|........|
|00000ac0| 63 6f 6d 00 00 00 08 03 | 04 76 00 06 00 00 04 02 |com.....|.v......|
|00000ad0| 6c 69 6e 00 00 00 03 01 | 03 60 00 00 41 6d 42 73 |lin.....|.`..AmBs|
|00000ae0| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+